﻿Namespace Save

    ''' <summary>
    ''' 複数行更新例外
    ''' </summary>
    ''' <remarks></remarks>
    Public Class ManySaveException
        Inherits SaveException

        Public Sub New(m As Object, args As ManySaveEventArgs)
            MyBase.New(m)
            _args = args
        End Sub

        Private _args As ManySaveEventArgs
        ReadOnly Property Args As ManySaveEventArgs
            Get
                Return _args
            End Get
        End Property

        Public Overrides ReadOnly Property Message As String
            Get
                Return String.Format("複数行の更新が発生しました。（Model:{0}, Count:{1}）", Me.Model.GetType.Name, Me.Args.RowCount)
            End Get
        End Property

    End Class

End Namespace
